home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / kermft10.zip / DOWNLOAD.SCR next >
Text File  |  1992-10-04  |  1KB  |  55 lines
  1. ; This will call the appropriate external file transfer protocols
  2. ; Glauber 13sep92
  3.  
  4. ; edit next line so that it matches your system
  5. define progpath c:\kermit\gsz
  6.  
  7. define gszparms pB4096 pV1
  8.  
  9. :top
  10.  
  11. cls
  12.  
  13. echo {\009  ╔══════════════════════╗}
  14. echo {\009  ║  DOWNLOAD PROTOCOLS: ║}
  15. echo {\009  ╟──────────────────────╢}
  16. echo {\009  ║      1. Zmodem       ║}
  17. echo {\009  ║                      ║}
  18. echo {\009  ║      2. YModem       ║}
  19. echo {\009  ║                      ║}
  20. echo {\009  ║      3. XModem       ║}
  21. echo {\009  ╚══════════════════════╝}
  22. echo {\009}
  23. ask user {\009  Please choose (1|2|3)\009}
  24.  
  25. if equal \m(user) 1 goto zmodem
  26. if equal \m(user) 2 goto ymodem
  27. if equal \m(user) 3 goto xmodem
  28. if equal \m(user) z goto zmodem
  29. if equal \m(user) y goto ymodem
  30. if equal \m(user) x goto xmodem
  31. if equal \m(user) zmodem goto zmodem
  32. if equal \m(user) ymodem goto ymodem
  33. if equal \m(user) xmodem goto xmodem
  34. goto top
  35.  
  36.  
  37. :zmodem
  38. echo {\009  OK, Receiving Zmodem to default download path}
  39. run \m(progpath) \m(gszparms) rz -mrr
  40. pop
  41.  
  42.  
  43. :ymodem
  44. echo {\009  OK, Receiving Ymodem to default download path}
  45. run \m(progpath) \m(gszparms) rb
  46. pop
  47.  
  48.  
  49. :xmodem
  50. ask what {\009  File name:\009}
  51. echo {\009  OK, Receiving Xmodem to default download path}
  52. run \m(progpath) \m(gszparms) rx \m(what)
  53. pop
  54.  
  55.